Grand Slam 3/Grand Slam 3.iso/030/atccom.arj/LUBFFM.ATC

Text File | 1995-08-31 | 13KB | 580 lines

##############################################################################
# This is an atc program which controls a flight from Lubeck rwy  07 (using
# LBE-1J SID) to Frankfurt/Main rwy 07L (using relevant STAR).
#
# Use this file together with the point file lubffm.pnt.
#
# This file is heavily commented...
#
##############################################################################
#
# Where to find the points used in this program:
#
Points  lubffm.pnt

#
# Wait for the user to move to the right airport.
# When the distance is below 20, then continue with the real stuff.
#
Label again
Message Hello, to start: Move to Lubeck
Trigger dist
        Action        GOTO again
        Repeat        21
    Point        VOR:LUD
    Distance    >20
End
Trigger dist
     Repeat        5
        Point        VOR:LUD
    Distance    <21
End
WAIT

#
# Speeds are restricted to 250 knots below 10000 ft, so we define a named
# trigger to check for this. The trigger repeat every 20 seconds, and
# we'll have to turn it off manually when we don't need it anymore.
# The trigger is turned off when the aircraft reaches 10000 ft (see later).
# NOTE: ATCCOM doesn't handle accelerated mode yet. If you use accelerated
#       mode it'll probably complain about the speed limit!
#

GTrigger Speed
    Name        maxspeed
    Speed        >270
    Action        Message    Reduce speed to 250 knots
    Repeat        20
End

#
#  Tell the pilot to contact clearance delivery.
#  Wait for the report in before continuing.
#  There's no clearance channel on Lubeck, but we do this so that the
#  program wait until the pilot's ready.
#
Message *Contact clearance delivery on 122.5
Trigger frequency
    Frequency    122.50
End
WAIT

###############################################################################
# Lubeck, SID LBE 1J
###############################################################################

#
# Ok, we start with clearance delivery, first send two messages to the aircraft.
# The star in the first message indicate that the aircraft must acknowledge the
# message. The vertical bar indicate that the messages should be sent as two
# lines (| = change line).
# After this we set up a trigger which should wait for an empty message from
# the aircraft (this is the normal acknowledge from the pilot).
# This is done because we don't want to send the next message because the
# previous message has been acknowledged. If this wasn't done, the pilot would
# see all three messages, and would have to acknowledge them together.
#
# Finally, the WAIT command tells the program to wait for a trigger to execute.
#

Message    *Good afternoon Flight 18,|
Message Cleared to Frankfurt as filed,|
Message Expect FL 220 10 minutes after departure,|
Message Squawk 1234
Message $

#
# Ok, the pilot acknowledged the "Cleared message".
# Ask him to change frequency, and then set up a trigger to wait for the
# frequency change. At the moment, ATCCOM doesn't validate the frequency, it
# only waits for the pilot to send the "r" command.
#

Message *Contact Lubeck Tower on 118.6 for taxi
Trigger frequency
    Frequency    118.60
End
WAIT

#
# The pilot changed frequency and reported in.
# Ask the pilot to taxi, and report short of runway. Then setup a trigger
# to wait for the report.
#

Message    *Taxi to runway 07, Report short of runway
Trigger text
    Text        r
End
WAIT

#
# Ok, now clear the aircraft for takeoff.
# Set up a control that verifies that the aircraft is flying course 70
# plus/minus 5 degrees.
# Set up a trigger which activate when the aircraft reaches 400 ft.
#

Message *Flight 18, cleared for takeoff rwy 07
Control heading
    Heading        70
    HPrecision    5
    Point        VOR:LUD
End
Trigger altitude
    Altitude    >400
End
WAIT

###############################################################################

#
# The aircraft is now above 400 ft, so it is presumably airborne <g>.
# Ask the pilot to contact Hamburg radar, and for the pilot to do this
#

Message    *Airborne,|Contact Hamburg radar on 124.22
Trigger frequency
    Frequency    124.22
End
WAIT

#
# The pilot has contacted Hamburg radar, give new orders.
# This time we set up controls to check the heading and altitude.
# The altitude control guide the aircraft to 5000 ft, however it won't complain
# about wrong altitude until the aircraft has been at 5000 ft at least once.
#
# According to the SID, the aircraft should turn right when at 5 nm from
# the LUD VOR, so we set up a dist trigger to check for this.
#

Message    *Flight 18, radar contact,|
Message Climb to 5000, continue heading 70
Control heading
    Heading        70
    HPrecision    5
    Point        VOR:LUD
End
Trigger dist
    Point        VOR:LUD
    Distance    >5
End

#
# Set up a global altitude control. This control doesn't explicitly contain
# an altitude, so it use the altitude given with the ALTITUDE command.
# The pilot may request another altitude when this trigger is active.
Altitude 5000
GControl altitude
    Name       g-altctl
    APrecision 300
End

WAIT

#
# Aircraft is now 5 miles away from the VOR, and should initiate the right turn.
# Ask the pilot to turn right to 160 , and set up a trigger which kicks in when
# this course has been reached.
#

Message    *Turn right heading 160

Control heading
    Heading        160
    HPrecision    5
End
Trigger heading
    Heading        160
    Hprecision    10
    Point        VOR:LUD
End
WAIT

#
# Now the aircraft is flying direction 160 so, in accordance with the SID, ask
# the aircraft to intercept the HAM VOR inbound.
# We create a radial control to verify that the pilot do this. Also, set
# the altitude to 10000 with the ALTITUDE command. Whenever this command change
# the required altitude, the pilot will get a message IF InitialMsg was
# 1 in the Global control monitoring the altitude. We didn't set InitialMsg,
# so we have to tell the pilot to change altitude.
# Finally set up a trigger which executes when the aircraft reaches HAM VOR.
#
Message    *Intercept "HAM" Radial 076 inbound,|
Message Climb to 10000
Altitude 10000
Control Radial
    Point        VOR:HAM
    Radial        TO 256
    DPrecision    1
    RPrecision    10
End
Trigger point
    Point        VOR:HAM
    DPrecision    5
End
WAIT

#
# Ok, now the aircraft should be at 10000 ft, and we're going to let it climb
# to 22000 ft, so the 250 knots restriction is no longer valid. Because of
# this we now turn the named "maxspeed" trigger off.
# miadfw.atc show another (smarter) way to do this.
#
Off maxspeed

#
# At HAM VOR, the pilot should fly to LBE VOR, so tell the pilot to do this.
# Also change the altitude to fl 220, and tell the pilot.
# Finally set up a trigger to execute when the aircraft reaches LBE vor.
#

Message    *Intercept LBE Radial 086 inbound,|
Message Climb to fl 220
Altitude fl 220
Control Radial
    Point        VOR:LBE
    Radial        TO 266
    DPrecision    1
    RPrecision    10
End
Trigger point
    Point        VOR:LBE
    DPrecision    5
End
WAIT

###############################################################################
# Enroute
###############################################################################

#
# At LBE VOR, the aircraft should fly to NIE VOR.
# Set up the usual controls, and set up a trigger which execute when the
# aircraft is 20 nm from LBE.
#

Message    *Intercept "A9" to Nienburg
Control Radial
    Point        VOR:NIE
    Radial        TO 188
    DPrecision    1
    RPrecision    10
End
Trigger dist
    Point        VOR:LBE
    Distance    >20
End
WAIT

###############################################################################

#
# At 20 nm from LBE, we ask the user to change frequency to Bremen Radar.
#

Message *Flight 18, Contact Bremen Radar on 126.65
Trigger frequency
    Frequency    126.65
End
WAIT

#
# The pilot has reported in at the new frequency, define the usual controls,
# and wait for the aircraft to reach NIE VOR.
# Note that InitialMsg is 1 so that the new controller will ask the pilot
# to maintain 22000 ft.
#

Message Flight 18, Radar contact
Control Radial
    Point        VOR:NIE
    Radial        TO 188
    DPrecision    1
    RPrecision    10
End
Trigger point
    Point        VOR:NIE
    DPrecision    5
End
WAIT

#
# At NIE VOR, ask the pilot to continue to ROBEG FIX.
# Verify that the aircraft maintain 22000 ft.
#

Message    *Continue "A9" to Robeg fix
Control Point
    Point        FIX:ROBEG
    DPrecision    1
End
Trigger point
    Point        FIX:ROBEG
    DPrecision    5
End
WAIT

#
# At ROBEG FIX, tell the pilot to continue to WRB VOR.
#

Message    *Continue "A9" to Warburg
Control Radial
    Point        VOR:WRB
    Radial        TO 188
    DPrecision    1
    RPrecision    10
End
Trigger point
    Point        VOR:WRB
    DPrecision    5
End
WAIT

#
# At WRB VOR, continue to OHMAR FIX, still at 22000 ft.
# Set up a trigger to execute 20 nm from WRB VOR
#

Message    *Continue "A9" to Ohmar fix
Control Point
    Point        FIX:OHMAR
    DPrecision    1
End
Trigger dist
    Point        VOR:WRB
    Distance    >20
End
WAIT

###############################################################################

#
# 20 nm from WRB VOR, the aircraft should contact Frankfurt Radar, so inform
# the aircraft of this. Then wait until this happens.
#

Message *Flight 18, contact Frankfurt Radar on 127.72
Trigger frequency
    Frequency    127.72
End
WAIT

#
# The pilot has changed frequency, set up the controls, and wait for the
# aircraft to reach OHMAR
#

Message Flight 18, Radar contact
Control Point
    Point        FIX:OHMAR
    DPrecision    1
End
Trigger point
    Point        FIX:OHMAR
    DPrecision    5
End
WAIT

#
# At OHMAR, ask the pilot to continue to GIESSEN NDB
#

Message    *Continue "A9" to Giessen NDB
Control Point
    Point        NDB:GIN
    DPrecision    1
End
Trigger point
    Point        NDB:GIN
    DPrecision    5
End
WAIT

#
# At GIESSEN, ask the pilot to continue to GEDERN VOR.
# We now want the aircraft to descend to 10000 ft.
#

Message    *Fly to Gedern VOR,|
Message Descend to 10000 ft
Altitude 10000
Control Point
    Point        VOR:GED
    DPrecision    7
End
Trigger dist
    Point        VOR:GED
    Distance    <6
End
WAIT

###############################################################################
# STAR, Frankfurt RWY 07L
###############################################################################

#
# Ok, now we start on the Frankfurt STAR for rwy 07L.
# The pilot should fly to MTR VOR.
#

Message    *Intercept "MTR" Radial 63 inbound
Control Radial
    Point        VOR:MTR
    Radial        TO 243
    DPrecision    5
    RPrecision    10
End
Trigger point
    Point        VOR:MTR
    DPrecision    5
End
WAIT

#
# Then fly to TAU VOR, and set up a trigger to execute when the aircraft
# is 15 nm from TAU.
#

Message    *Intercept "TAU" Radial 88 inbound
Control Radial
    Point        VOR:TAU
    Radial        TO 268
    DPrecision    5
    RPrecision    10
End
Trigger dist
    Point        VOR:TAU
    Distance    <15
End
WAIT

#
# At 15 nm, we ask the pilot to change frequency to Frankfurt Approach.
#

Message *Contact Frankfurt Approach on 120.8
Trigger frequency
    Frequency    120.80
End
WAIT

#
# Frequency changed, so ask the pilot to continue to TAU VOR.
#

Message *Flight 18, Radar contact, Cross "TAU" at 10000
Control Radial
    Point        VOR:TAU
    Radial        TO 268
    DPrecision    5
    RPrecision    10
End
Trigger point
    Point        VOR:TAU
    DPrecision    5
End
Trigger dist
    Point        VOR:TAU
    Distance    <4
End
WAIT

#
# Here at TAU VOR, we're going to let the aircraft descent to 5000 ft, so we
# have to reestablish the named maxspeed trigger.
#

GTrigger Speed
    Name        maxspeed
    Speed        >270
    Action        Message    Reduce to speed below 250
    Repeat        20
End

#
# Then ask the aircraft to fly south from TAU and descend to 5000 in accordance
# with the IAP for rwy 07L
#


Message    *Intercept "TAU" Radial 180 outbound,|
Message Descend and maintain 5000
Altitude 5000
Control Radial
    Point        VOR:TAU
    Radial        FROM 180
    DPrecision    5
    RPrecision    10
End
Trigger dist
    Point        VOR:TAU
    Dist        >16
End
WAIT

#
# At 16 nm from TAU, the pilot is near the localizer. Command the aircraft to
# 4000 and to intercept the localizer.
# Trigger when the aircraft is less than 16 nm from RHM ILS (this should be
# the intercept point with the localizer).
# Now turn off the global altitude control, we will set up the necessary
# altitude control directly (from now on the pilot can't request altitude
# changes)
#
OFF g-altctl

Message    *Descend and maintain 4000,|
Message Intercept localizer for approach to rwy 07L
Control altitude
    Altitude    4000
    APrecision    300
End

Trigger dist
    Point        ILS:RHM
    Dist        <16
End
WAIT

#
# Ask the pilot to change to tower frequency
#

Message    *Contact Frankfurt tower at 119.9
Trigger frequency
    Frequency    119.90
End
WAIT

#
# Clear the aircraft for landing
# Now just wait for the speed to go below 20 knots.
#
Message    *Flight 18, cleared to land 07
Trigger Speed
    Speed        <20
End
WAIT

#
# The aircraft has (presumably) landed, so tell it to contact apron frequency.
#
Message    *Contact apron at 121.7, Goodbye
Trigger frequency
    Frequency    121.70
End
WAIT

#
# Finally, give taxi instructions, turn off the maxspeed trigger, and stop
# the program.
#
Message    *Flight 18, Take taxiway H to parking.

Off maxspeed
STOP